10 IFMTTHEN100
15 POKE56,32:CLR
35 DV=PEEK(186):IFDV<8THENDV=8
36 SYS57812"FONT",DV,0:POKE780,0:POKE781,0:POKE782,32:SYS65493
37 SYS57812"BIBLE 3000",DV,0:POKE780,0:POKE781,0:POKE782,48:SYS65493
38 SYS57812"DTEXT 2800",DV,0:POKE780,0:POKE781,0:POKE782,40:SYS65493
40 POKE53272,24:MT=12288:DTEXT=10240:DIMFILES$(10),D%(7)
45 SYSMT+9,8192,2,105:SYSMT+9,8192,3,95:POKE53272,24
50 FORI=1TO3000:NEXT:POKE53374,0:POKE53366,0:POKE53375,0
55 SYSMT+201,95,105,4,10,14,1,14,7,6,1,0,0
60 SYS10240,"BOOKS",DV,80*256:SYSMT+36,80*256:WB=PEEK(20):SYSMT+54:BL=F%
65 SYSMT+15,"BNAMES",DV,107*256:SYSMT+36,107*256:SYSMT+54:BN=F%
75 BB=0:BC=1:BV=1:LB=-1
80 POKE650,128:SHADE=MT+96:FRAME=MT+6:CENTER=MT+78:BOX=MT+3:AT=CENTER-3
85 X=0:FORI=8TO29:IFI<>14THENCLOSE2:OPEN2,I,2:CLOSE2:IFST=0THEND%(X)=I:X=X+1
90 NEXT:FORI=0TOX:IFD%(I)=DVTHENA=I
95 NEXT:ND=X:I=D%(0):D%(A)=I:D%(0)=DV:DX=0:POKE186,DV
100 T$="[212]HE [195]OMPLEAT [207]LD [212]ESTAMENT"
105 A$(1)="[207]PEN A [194]IBLE [194]OOK           ([207])"
120 A$(2)="[211]EARCH [194]IBLE [212]EXT           ([211])
135 A$(3)[178]"(null)ROGRAM STR$OCUMENTATION       (STR$)"
137 A$(4)[178]"CHR$UIDE (null)O STR$ISK LENONTENTS      (LEN)"
140 H$[178]" OSDC"
145 [158]MT[170]198,T$,4,A$(1),A$(2),A$(3),A$(4),H$
150 [145]F%[141]300,180,20000,6000
160 [137]100
180 F$[178]"O.WHOLE SEARCH":[137]2300
300 [158]MT[170]36,80[172]256:[158]SHADE,9,9[170]WB,7,20
305 [158]MT[170]42,10,10[170]WB,6,19,1,5,1,13,BB,65,0:BOOK%[178]I%:[139]LB[178]I%[167]330
310 WW$[178]W$:[158]MT[170]84,W$:F$[178]W$:T[178]0
315 [141]1000:[139]F%[178][171]1[176][197](A$)[167][139]T[179]ND[167][141]2100:[137]315
320 [139]F%[178][171]1[167]E$[178]"ERROR BNF":[141]2200:[142]
325 [158]MT[170]48,0:[158]MT[170]27,BL:[158]MT[170]30,WW$,BO%,1:[158]DT,W$,D%(DX),84[172]256:HS[178]0:LH$[178]W$
330 [158]MT[170]207,84[172]256:EH[178]F%[171]1
335 [158]FRAME,1,39,1,16,13:[158]BOX,2,38,2,2,160,13
340 [158]BOX,2,38,3,3,160,3
341 [158]MT[170]30,"(null)ETURN (null)O (null)AIN (null)ENU",0,0
345 [153]"PRINT";:[158]CENTER,2,"(null)ICK ATNN VALNTRY (null)OINT RIGHT$N (null)HE PEEKOOK"
350 [158]MT[170]42,2,38,4,15,1,3,1,7,0,EH,0:[139]F%[178]0[167][142]
355 [139]F%[179][177]1[167]380
360 [158]BOX,2,37,22,22,32,0:[158]AT,2,22,"WAITOPENLENHAPTER:(null)ERSE (CC:VV) "
365 [129]I[178]0[164]2:[151]631[170]I,[198]("CMD"):[130]:[151]198,3
370 [158]MT[170]51,1,7,7,"1:1":[139]W$[178]""[167][142]
375 [137]385
380 HS[178]F%:[158]MT[170]36,84[172]256:[158]MT[170]33,HS[172]2[170]1
385 VERSE[178][197](W$):V$[178]W$:[141]3000:F$[178]W$[170]"???-???":[139]LB[178]BO%[167]400
390 [141]1000:[139]F%[179]0[167][142]
395 FILES[178]F%:[158]MT[170]48,1:[129]I[178]0[164]FILES:[158]MT[170]33,I:FI$(I)[178]W$:[130]:[158]MT[170]48,0
400 I[178]0
405 W$[178]FI$(I):[139][200](W$,3)[178]"JOB"[167]W$[178]":"[170]W$
410 [139][197]([202](W$,5,3))[179][178]VERSE[175][197]([202](W$,9,3))[177][178]VERSE[167]425
415 [139]I[179]FILES[167]I[178]I[170]1:[137]405
420 I[178]0:W$[178]FI$(I)
425 [139][197](V$)[177][197]([202](W$,9,3))[167]V$[178]"1:1":[137]400
430 [139]CL$[179][177]W$[167]F$[178]W$:[158]DT,F$,D%(DX),7[172]4096:CL$[178]F$:LB[178]BOOK%
435 [158]MT[170]36,7[172]4096:EN[178]F%
440 [141]2000
445 [158]MT[170]210,V$,0,EN:SP[178]F%:[139]SP[179]0[167]SP[178]0
450 [158]MT[170]42,1,38,3,18,1,15,15,7,SP,EN[171]1,1
455 [141]700:[137]330
700 T$[178]"(null) (null) (null) RIGHT$ (null) (null) (null)"
705 A$(1)[178]"PEEKACK TO LEFT$IGHLIGHT (null)ENU    (ASC-1)"
710 A$(2)[178]"VALXPORT (null)ELECTED (null)CRIPTURE  (X)"
715 A$(3)[178]"(null)EARCH LENURRENT (null)EXT        ((null))
720 A$(4)="[195]ONTINUE [211]EARCH            (S)
730 A$(5)[178]"(null)RINT (null)ELECTED (null)EXT        ((null))
740 H$=" [133]X[211]SP"
745 SYSMT+198,T$,5,A$(1),A$(2),A$(3),A$(4),A$(5),H$
750 IFF%=1THENRETURN
755 ONF%GOSUB765,765,855,865,760:GOTO745
760 ED=4:GOTO770
765 ED=DV
770 POKE199,0:SYSMT+213,0,EN-1:A=F%:SYSBOX,1,38,21,23,32,0
775 IFF%<0THENA$="[206]O [212]EXT [211]ELECTED!":GOSUB5020:SYSMT+36,80*256:POKE198,0:RETURN
780 IFED=4THENA$=CHR$(13):GOTO810
785 SYSBOX,1,38,21,23,32,0:SYSAT,2,22,"[146][198]ILENAME: "
790 SYSMT+51,3,4,25,"@0:EXPORT.TXT"
795 IFW$=""THENRETURN
800 A$=W$+",S,W":SYSBOX,1,38,21,23,32,0:SYSAT,2,22,"[146]DEVICE: "
805 SYSMT+51,3,4,25,STR$(DV):ED=VAL(W$):IFED<8ORED>29THEN800
810 CLOSE2:OPEN2,ED,2:CLOSE2:IFSTTHENRETURN
815 OPEN2,ED,7,A$
820 PRINT#2,CHR$(13)
825 PRINT#2,"[198]ROM THE BOOK OF "WW$
830 PRINT#2,"-----------------"LEFT$("--------------------",LEN(WW$))
835 C=0:FORI=ATOEN-1:SYSMT+33,I:IFF%THENPRINT#2,W$:C=C+1
840 NEXT:CLOSE2
845 SYSBOX,1,38,21,23,32,0
850 SYSCE,22,STR$(C)+" LINES EXPORTED":POKE198,0:WAIT198,15:POKE198,0:RETURN
855 SYSBOX,1,38,21,23,32,0:SYSAT,2,22,"[146][211]EARCH FOR: "
860 SYSMT+51,3,4,25,"":SE$=W$:IFW$=""THENRETURN
865 SYSBOX,1,38,21,23,32,0
870 F%=-1:IFSE$<>""THENSYSMT+210,SE$,SS,EN-1
875 SP=F%:IFSP<0THENSYSCE,22,"[206]OT FOUND":POKE198,0:WAIT198,15:POKE198,0:RETURN
880 GOSUB2000:SYSMT+42,1,38,1,18,1,15,15,7,SP,EN-1,1:SS=SP+1:GOTO700
885 F$="BOOKMARK PRG":GOSUB2300:RETURN
890 STOP
1000 SYSMT+39,"$:"+F$,D%(DX),208*256:SYSMT+48,0:CLOSE15:OPEN15,D%(DX),15
1010 INPUT#15,A$,E$:CLOSE15:RETURN
2000 SYSBOX,0,39,0,24,160,15:SYSFRAME,0,39,0,24,14:SYSBOX,1,38,20,23,160,14
2005 SYSBOX,1,38,1,1,160,7:PRINT"[158]";:SYSMT+78,1,"[212]HE [194]OOK OF "+WW$
2010 SYSAT,2,20,"[154][195][210][211][210] [212]HROUGH TEXT   +/- TO PAGE"
2020 IFWW$<>"[196]OCUMENTATION"THENSYSAT,2,21,"[210][197][212][213][210][206] - MARK TEXT FOR EXPORT/PRINT
2030 [158]AT,2,22,"LEFT$(null)(null)VAL - TOP  LEN(null)(null) - PEEKOTTOM ASC1 - VALXIT"
2040 [158]AT,2,23,"(null) - (null)EW SEARCH  S - LENONTINUE SEARCH
2099 RETURN
2100 DX=DX+1:IFD%(DX)=0THENDX=0
2110 T=T+1:RETURN
2200 SYSSH,0,39,0,24:SYSMT+48,0:SYSMT+15,E$,DV,28000:SYSMT+36,28000:EN=F%
2205 IFE$="ERROR BNF"THENSYSMT+30,"   [201] COULDN'T FIND "+CHR$(34)+F$+CHR$(34),1,1
2210 SYSBOX,0,39,1,19,160,7:SYSFRAME,0,39,0,20,2
2220 SYSMT+42,1,38,1,19,1,7,1,1,0,EN-1,0:RETURN
2300 T=0
2310 GOSUB1000:IFVAL(A$)ORF%<0THENIFT<NDTHENGOSUB2100:GOTO2310
2320 IFVAL(A$)=0ANDF%>-1THEN40000
2330 E$="ERROR BNF":GOTO2200
3000 SYSMT+27,BN:SYSMT+33,BO%:RETURN
5000 SYSMT,0,39,0,24,95,095,15,12
5005 SYSSH,0,37,16,21:SYSFR,1,38,16,20,15:SYSBO,2,37,17,19,160,1
5010 PRINT"";:SYSCE,18,A$:RETURN
5020 GOSUB5000:POKE198,0:WAIT198,15:RETURN
6000 SYSMT+15,"CONTENTS",DV,32768:SYSMT+36,32768:EN=F%
6020 WW$="[195]ONTENTS":GOSUB2000:SYSMT+42,1,38,3,18,1,15,15,7,0,EN-1,1:GOTO100
10000 _"@0:COMPLEAT OT"
10010 STOP
20000 SYSMT+15,"T.ABOUT COT",DV,32768:SYSMT+36,32768:EN=F%
20010 WW$="[196]OCUMENTATION":GOSUB2000:SYSMT+42,1,38,3,18,1,15,15,7,0,EN-1,1:GOTO100
40000 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40100 PRINT"[147]L[207]"Q$F$Q$","D%(DX)
40110 PRINT"P[207]53272,23:RUN:":POKE631,13:POKE632,13:POKE198,2:END